%Wypisuje korelacje miedzy Capital services a produktywnoscia pracownikow

cs = CS(:,2);
lprod = LPROD(:,2);

disp('Korelacja pomiedzy Capital services a produktywnoscia pracownikow');
for i = 0:6
    [kor p] = KorelacjaPrzes(cs, lprod, i);
    disp(['Opoznienie ' num2str(i) ': ' num2str(kor) ', t-Student alfa = ' num2str(p)]);
end
disp(sprintf('\n\n'));

clear cs lprod i kor p;